home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
TSR
/
TPPOP18C
/
CRIT.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-11-01
|
586b
|
46 lines
.MODEL LARGE
DATA SEGMENT
EXTRN inoutres:WORD
DATA ENDS
.CODE
CODE SEGMENT
ASSUME cs:CODE
PUBLIC CriticalHandler
CriticalHandler PROC FAR
sti
push di
push ax
push ds
and di,1Fh
add di,96h
mov ax,SEG DATA
mov ds,ax
ASSUME ds:DATA
mov [inoutres],di
pop ds
ASSUME DS:nothing
pop ax
pop di
xor al,al
iret
CriticalHandler ENDP
CODE ENDS
END